home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / sdk / spitCode.pl < prev   
Perl Script  |  2006-06-30  |  417b  |  23 lines
  1. #!/usr/bin/perl
  2. use strict;
  3.  
  4. die(qq{
  5. Spitcode, stupid little utility for extracting things in double quotes, for
  6. example char strings in c/perl code (like shellcode).  Will just read this
  7. in on stdin, and write it out on stdout.
  8.  
  9. -n will supress printing a newline afterwards.
  10.  
  11. }) if($ARGV[0] eq '-h');
  12.  
  13. my $foo;
  14.  
  15. while(<STDIN>) {
  16.   if(/"(.*?)"/) {
  17.     $foo .= $1;
  18.   }
  19. }
  20.  
  21. print $foo;
  22. print "\n" if($ARGV[0] ne '-n');
  23.